home *** CD-ROM | disk | FTP | other *** search
- /* this scrip loads a spectrum screen (files .scr saved by "Z80") */
-
- /* test if emulator is present */
- address command
-
- if ~show(ports,ZXAM_REXX) then do
- requestchoice 'title "ZXAM Script error..." body "I can''t find the emulator''s port!!" gadgets "AARGH!"'
- exit
- end
-
- /* store the initial status of the emulator */
- running=zxamactrun() /* 1=running */
- zxamstop() /* stop the emulation */
-
- /* LOAD requester */
- oldpath=zxamactloadpath()
- oldpattern=zxamactpattern()
- zxampattern('#?.scr')
- nombre=zxamloadrequester('Select the .scr file...')
- zxamloadpath(oldpath)
- zxampattern(oldpattern)
- if nombre='' then exit 0 /* CANCEL */
-
- pantalla=zxampploadfile(nombre) /* load the whole file */
-
- if length(pantalla)~=6912 then exit /* test if it's a screen */
-
- zxamputmem(16384,pantalla) /* place the file in the spectrum's screen */
-
- /* restore the status */
- if running=1 then zxamrun()
-
- exit
-